home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Amiga Club Hoorn
/
ACH ClubDiskette No.24 (1995-06)(Amiga Club Hoorn)(NL).zip
/
ACH ClubDiskette No.24 (1995-06)(Amiga Club Hoorn)(NL).adf
/
WB2
/
Guru3.0.lha
/
guru3.0 - english
/
sources
/
Faults.s
< prev
next >
Wrap
Text File
|
1994-11-13
|
794b
|
58 lines
* Faults
* SYNTAX:
*
* By E.Lensink
* Using Devpac III
*
***********************************
include "exec/execbase.i"
include "exec/exec_lib.i"
include "libraries/dos_lib.i"
include "libraries/dos.i"
lea Dosname,a1
moveq #0,d0
CALLEXEC OpenLibrary
move.l d0,_DOSBase
beq EXIT
CALLDOS Output
move.l d0,StdOut
moveq #0,d6
loop moveq #68,d0
lea ClearString,a0
.loop move.b #' ',(a0)+
dbf d0,.loop
move.l d6,d1
moveq #0,d2
move.l #ClearString,d3
moveq #70,d4
CALLDOS Fault
move.l StdOut,d1
move.l #ClearString,d2
moveq #70,d3
CALLDOS Write
addq.l #1,d6
cmpi.l #500,d6
bne loop
move.l _DOSBase,a1
CALLEXEC CloseLibrary
EXIT rts
even
_DOSBase dc.l 0
StdOut dc.l 0
Dosname dc.b 'dos.library',0
ClearString ds.b 69
dc.b 10